home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 137 / 137.d81 / b.colors 240 (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  1KB  |  66 lines
  1. 2 :
  2. 3 :rem lower top of basic/protect font
  3. 4 :
  4. 5 poke56,56:clr
  5. 7 :
  6. 8 :rem set background and border colors
  7. 9 :
  8. 10 poke53281,0:poke53280,0
  9. 17 :
  10. 18 :rem set dv to current drive number
  11. 19 :
  12. 20 dv=peek(186):ifdv<8thendv=8
  13. 27 :
  14. 28 :rem clear screen and lock lowercase
  15. 29 :
  16. 30 print"[154][147]"
  17. 37 :
  18. 38 :rem bload font at $3800
  19. 39 :
  20. 40 sys57812"dot font",dv,0:poke780,0:poke781,0:poke782,56:sys65493
  21. 47 :
  22. 48 :rem switch to custom font
  23. 49 :
  24. 50 poke53272,31
  25. 97 :
  26. 98 :rem define box as bx$
  27. 99 :
  28. 100 bx$="    [157][157][157][157]    [157][157][157][157]    [157][157][157][157]    [157][157][157][157]    "
  29. 107 :
  30. 108 :rem draw grid
  31. 109 :
  32. 110 fori=0to3
  33. 112 forj=0to7
  34. 114 poke646,j+8*(iand1) :rem set color
  35. 116 poke214,i*5:print   :rem set row
  36. 118 ifi<2thenpoke199,1  :rem rvs 1st 16
  37. 120 printtab(j*4+4)bx$  :rem print box
  38. 122 next
  39. 124 next
  40. 207 :
  41. 208 :rem cycle background colors
  42. 209 :
  43. 240 print"[154]  [208]ress [211][208][193][195][197] to cycle through the 16
  44. 250 [153]"  background colors.  (NULL)ress (NULL) to quit.
  45. 270 geta$:ifa$=""then270
  46. 272 ifa$="q"then40000
  47. 280 c=(c+1)and15:poke53281,c
  48. 290 goto270
  49. 300 :
  50. 310 :rem scratch and save
  51. 320 :
  52. 10000 d=peek(186):n$="b.colors 240":open15,d,15,"s0:"+n$:close15:saven$,d:end
  53. 39000 :
  54. 39010 :rem return to ls
  55. 39020 :
  56. 40000 fori=0to21:poke828+i,8+i:next
  57. 40010 ifdv<8ordv>29ordv=8then40030
  58. 40020 a=peek(828):b=peek(828+dv-8):poke828,b:poke828+dv-8,a
  59. 40030 a$="hello connect":forj=8to29:i=peek(828+j-8):ifi=14thennext
  60. 40040 close2:open2,i,2:close2:ifstthen40060
  61. 40050 close15:open15,i,15,"r0:"+a$+"="+a$:input#15,er:close15:ifer=63then40070
  62. 40060 next:print"[147]":poke53272,23:poke186,8:end
  63. 40070 q$=chr$(34):poke646,peek(53281):print"[147]":poke53272,23
  64. 40080 print"[147]p[207]2048,0:p[207]44,8:p[207]43,1:p[207]56,160:p[207]55,0:clr:l[207]"q$a$q$","i
  65. 40090 print"run:":poke631,13:poke632,13:poke198,2:end
  66.